home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
turbovis
/
dlgdsn22.zip
/
TESTCASE.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1992-07-30
|
1KB
|
62 lines
{$X+}
program TestCase;
uses Dos, Memory, Objects, Drivers, Views, Menus, Dialogs, App, StdDlg,
Editors, ColorTxt, InpLong;
Const
cmTry = 150;
cmButton = 151;
type
TListboxRec = record
PS : PStringCollection;
Focused : Integer;
end;
type
TMyApp = object(TApplication)
procedure InitStatusLine; virtual;
procedure HandleEvent(var Event: TEvent); virtual;
end;
var
MyApp: TMyApp;
Dialog : PDialog;
procedure TMyApp.InitStatusLine;
var R: TRect;
begin
GetExtent(R);
R.A.Y := R.B.Y - 1;
StatusLine := New(PStatusLine, Init(R,
NewStatusDef(0, $FFFF,
NewStatusKey('~Alt-X~ Exit', kbAltX, cmQuit,
NewStatusKey('~F9~ Try dialog', kbF9, cmTry,
nil)),
nil)
));
end;
(*----Insert MakeDialog here----*)
procedure TMyApp.HandleEvent(var Event: TEvent);
begin
TApplication.HandleEvent(Event);
if (Event.What = evCommand) and (Event.Command = cmTry) then
begin
Dialog := MakeDialog;
DeskTop^.ExecView(Dialog);
Dispose(Dialog, Done);
ClearEvent(Event);
end;
end;
begin
MyApp.Init;
MyApp.Run;
MyApp.Done;
end.